COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
VARIABLE W,Y,Q;
Q←W←Y←0;
FUNCTION RMBR;
BEGIN ARRAY Z(200); 
IF P1< 3 THEN BEGIN
  IF Q=P3 THEN P3←P3*2;
  Z(W)←P3; W=W+1; Q←P3;
   RETURN;
   END;
P3←Z(Y)/3;  Y=Y+1;  
END;
*
TOOT  0 2;
P2 .15;
P3 1 C4 B7;
P4 1000;
P5 F1;
P6 F3;
P7 "RMBR";
END;
CLAR 3 5;
DUPL 1;
P6 "RMBR";
P7 F4;
END;